object frmOptions: TfrmOptions Left = 287 Top = 223 HelpContext = 2 HorzScrollBar.Visible = False VertScrollBar.Visible = False BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Options' ClientHeight = 467 ClientWidth = 417 Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsStayOnTop Position = poDefaultPosOnly OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 120 TextHeight = 16 object grpBackColor: TRadioGroup Left = 8 Top = 8 Width = 241 Height = 89 Caption = '&Background Colour' ItemIndex = 0 Items.Strings = ( 'Use the current &Windows setting' 'Use the &silver (grey) colour') TabOrder = 0 OnClick = grpBackColorClick end object grpPreview: TGroupBox Left = 256 Top = 8 Width = 153 Height = 89 Caption = 'Preview' TabOrder = 6 object lblMetals: TLabel Left = 11 Top = 14 Width = 40 Height = 16 AutoSize = False Caption = 'Metals' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object lblNonMetals: TLabel Left = 11 Top = 30 Width = 65 Height = 16 AutoSize = False Caption = 'Nonmetals' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object lblSemimetals: TLabel Left = 11 Top = 46 Width = 71 Height = 16 AutoSize = False Caption = 'Semimetals' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object lblGases: TLabel Left = 97 Top = 46 Width = 40 Height = 16 AutoSize = False Caption = 'Gases' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object lblLiquids: TLabel Left = 97 Top = 30 Width = 43 Height = 16 AutoSize = False Caption = 'Liquids' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object lblSolids: TLabel Left = 97 Top = 14 Width = 38 Height = 16 AutoSize = False Caption = 'Solids' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object lblUndefined: TLabel Left = 43 Top = 61 Width = 62 Height = 16 AutoSize = False Caption = 'Undefined' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end end object grpForeColor: TGroupBox Left = 8 Top = 104 Width = 401 Height = 137 Caption = '&Click on one of the below to choose its colour' TabOrder = 1 object butMetals: TButton Left = 12 Top = 28 Width = 117 Height = 29 Caption = '&Metals' TabOrder = 0 OnClick = ButtonClick end object butNonmetals: TButton Left = 12 Top = 60 Width = 117 Height = 29 Caption = '&Nonmetals' TabOrder = 1 OnClick = ButtonClick end object butSemimetals: TButton Left = 12 Top = 92 Width = 117 Height = 29 Caption = 'S&emimetals' TabOrder = 2 OnClick = ButtonClick end object butSolids: TButton Left = 140 Top = 28 Width = 117 Height = 29 Caption = 'Sol&ids' TabOrder = 3 OnClick = ButtonClick end object butLiquids: TButton Left = 140 Top = 60 Width = 117 Height = 29 Caption = '&Liquids' TabOrder = 4 OnClick = ButtonClick end object butGases: TButton Left = 140 Top = 92 Width = 117 Height = 29 Caption = '&Gases' TabOrder = 5 OnClick = ButtonClick end object butUndefined: TButton Left = 268 Top = 60 Width = 117 Height = 29 Caption = '&Undefined' TabOrder = 6 OnClick = ButtonClick end end object butOK: TButton Left = 312 Top = 432 Width = 89 Height = 29 Caption = '&OK' Default = True TabOrder = 5 OnClick = ButtonClick end object butCancel: TButton Left = 216 Top = 432 Width = 89 Height = 29 Cancel = True Caption = '&Cancel' TabOrder = 4 OnClick = ButtonClick end object butHelp: TButton Left = 120 Top = 432 Width = 89 Height = 29 Cancel = True Caption = '&Help' TabOrder = 3 OnClick = ButtonClick end object GroupBox1: TGroupBox Left = 8 Top = 248 Width = 401 Height = 177 Caption = 'Background Image' TabOrder = 2 object Button1: TButton Left = 16 Top = 128 Width = 81 Height = 28 Caption = '&Browse...' TabOrder = 0 OnClick = Button1Click end object panImage: TPanel Left = 112 Top = 24 Width = 273 Height = 137 BevelOuter = bvNone BorderStyle = bsSingle TabOrder = 1 object imgBackground: TImage Left = 0 Top = 0 Width = 269 Height = 133 Align = alClient Center = True end end end object sysColour: TColorDialog Ctl3D = True Left = 76 Top = 432 end object sysOpen: TOpenDialog DefaultExt = 'bmp' FileEditStyle = fsEdit Filter = 'Bitmap Files (*.bmp)|*.bmp|All Files (*.*)|*.*' Left = 48 Top = 432 end end